home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / db3ledge / update.prg < prev    next >
Encoding:
Text File  |  1986-01-12  |  695 b   |  31 lines
  1. ******************************(UPDATE.PRG)--JAY KENNEY
  2. CLEA
  3. USE PAY
  4. ? 'Sorting pay file...'
  5. SORT TO TEMP ON NAME,DUEDATE FOR NAME<>'               '
  6. USE TEMP
  7. ?
  8. ? '30 Days past due...'
  9. REPL ALL OLD30 WITH NET FOR DUEDATE < DATE()
  10. ?
  11. ? '60 Days past due...'
  12. REPL ALL OLD60 WITH NET FOR DUEDATE < DATE()-30
  13. ?
  14. ? '90 Days past due...'
  15. REPL ALL OLD90 WITH NET FOR DUEDATE < DATE()-60
  16. ?
  17. ? '120 Days past due...'
  18. REPL ALL OLD120 WITH NET FOR DUEDATE < DATE()-90
  19. ?
  20. ? 'Over 120...'
  21. REPL ALL OLDER WITH NET FOR DUEDATE < DATE()-120
  22. GO TOP
  23. ?
  24. ? 'Copying to active pay file...'
  25. COPY TO PAY
  26. CLEA
  27. USE PAY
  28. DELE FILE TEMP.DBF
  29. @ 23,1 SAY 'Press F9 to return to the main menu.'
  30. RETURN
  31.